﻿Public Class cUsuarios
    Private varCodigo_Usuario As String
    Private varCodigo_Tipo_Identificacion As String
    Private varNumero_Identificacion As String
    Private varPrimer_Nombre As String
    Private varSegundo_Nombre As String
    Private varPrimer_Apellido As String
    Private varSegundo_Apellido As String
    Private varFecha_Nacimiento As Date
    Private varSexo As String
    Private datos As New dUsuarios

    Public Property Codigo_Usuario As String
        Get
            Return varCodigo_Usuario
        End Get
        Set(ByVal value As String)
            varCodigo_Usuario = value
        End Set
    End Property

    Public Property Codigo_Tipo_Identificacion As String
        Get
            Return varCodigo_Tipo_Identificacion
        End Get
        Set(ByVal value As String)
            varCodigo_Tipo_Identificacion = value
        End Set
    End Property

    Public Property Numero_Identificacion As String
        Get
            Return varNumero_Identificacion
        End Get
        Set(ByVal value As String)
            varNumero_Identificacion = value
        End Set
    End Property

    Public Property Primer_Nombre As String
        Get
            Return varPrimer_Nombre
        End Get
        Set(ByVal value As String)
            varPrimer_Nombre = value
        End Set
    End Property

    Public Property Segundo_Nombre As String
        Get
            Return varSegundo_Nombre
        End Get
        Set(ByVal value As String)
            varSegundo_Nombre = value
        End Set
    End Property

    Public Property Primer_Apellido As String
        Get
            Return varPrimer_Apellido
        End Get
        Set(ByVal value As String)
            varPrimer_Apellido = value
        End Set
    End Property

    Public Property Segundo_Apellido As String
        Get
            Return varSegundo_Apellido
        End Get
        Set(ByVal value As String)
            varSegundo_Apellido = value
        End Set
    End Property

    Public Property Fecha_Nacimiento As Date
        Get
            Return varFecha_Nacimiento
        End Get
        Set(ByVal value As Date)
            varFecha_Nacimiento = value
        End Set
    End Property

    Public Property Sexo As String
        Get
            Return varSexo
        End Get
        Set(ByVal value As String)
            varSexo = value
        End Set
    End Property
    Public Function Consultar(ByVal campo As String) As DataSet
        'Dim datos As New dAnalistas
        Dim resultado As DataSet
        resultado = datos.ConsultarMysql(campo)
        Return resultado
    End Function
    Public Sub Guardar()
        'Dim Datos As New dAnalistas
        datos.GuardarMysql(varCodigo_Usuario, varCodigo_Tipo_Identificacion, varNumero_Identificacion, varPrimer_Nombre, varSegundo_Nombre, varPrimer_Apellido, varSegundo_Apellido, varFecha_Nacimiento, varSexo)
    End Sub
    Public Sub Cargar(ByVal campo As String)
        'Dim datos As New dAnalistas
        Dim resultado As ArrayList
        resultado = datos.CargarMysql(campo)
        varCodigo_Tipo_Identificacion = resultado(0)
        varNumero_Identificacion = resultado(1)
        varPrimer_Nombre = resultado(2)
        varSegundo_Nombre = resultado(3)
        varPrimer_Apellido = resultado(4)
        varSegundo_Apellido = resultado(5)
        varFecha_Nacimiento = resultado(6)
        varSexo = resultado(7)
    End Sub

End Class
